home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 7.st / KAMIKAZE.ARC / SIMPLE.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-14  |  1.1 KB  |  65 lines
  1.  
  2. ;:ts=12
  3.     public _stuff_words
  4.     ;stuff_words(buf, what, count)
  5. _stuff_words
  6.     move.l    4(sp),a0
  7.     move.w    8(sp),d0
  8.     move.w    10(sp),d1
  9.     bra    zstuffw
  10. stuffw    move.w    d0,(a0)+
  11. zstuffw    dbra    d1,stuffw
  12.     rts
  13.  
  14.     public _clear_bytes
  15.     ;clear_bytes(buf, count)
  16. _clear_bytes
  17.     move.l    4(sp),a0
  18.     move.w    8(sp),d0
  19.     move.b    #0,d1
  20.     bra    zcb
  21. cb    move.b    d1,(a0)+
  22. zcb    dbra    d0,cb
  23.     rts
  24.  
  25.     public _iabs
  26.     ;iabs(val)    - integer absolute value
  27. _iabs
  28.     move.w    4(sp),d0
  29.     bpl    iret
  30.     neg.w    d0
  31. iret    rts
  32.  
  33.     ;    word_zero(pt, count)
  34.     ;        zero out count # of words starting at pt
  35.     public _word_zero
  36. _word_zero
  37.     move.l    4(sp),a0
  38.     move.w    8(sp),d0
  39.     move.w    #0,d1
  40.     bra wzz
  41. wzlp    move.w    d1,(a0)+
  42. wzz    dbra    d0,wzlp
  43.     rts
  44.  
  45.     public _zero_structure
  46. _zero_structure
  47.     asr.w    8(sp)
  48.     bra    _word_zero
  49.  
  50.  
  51.     public _copy_structure
  52.     ; copy_structure(s, d, bytes)
  53.     ;    basically a word copy.  Bytes must be even as
  54.     ;    must be s and d
  55. _copy_structure
  56.     move.l    4(sp),a0
  57.     move.l    8(sp),a1
  58.     move.w    12(sp),d0
  59.     lsr.w    #1,d0    ; bytecount to wordcount
  60.     bra    zcpstrc
  61. cpstrc    move.w    (a0)+,(a1)+
  62. zcpstrc    dbra    d0,cpstrc
  63.     rts
  64.  
  65.